home *** CD-ROM | disk | FTP | other *** search
/ Old Testament Foundatiosn with Philip Yancey / Old Testament Foundatiosn with Philip Yancey - Disc 1.iso / pc / data / discover.dir / 00052.ls < prev    next >
Encoding:
Text File  |  1996-09-06  |  742 b   |  30 lines
  1. on pressDevotionalMenu
  2.   set spriteNum to the clickOn
  3.   set upcastColor to 251
  4.   set downCastColor to 6
  5.   puppetSound("MouseDown.aif")
  6.   repeat while the mouseDown
  7.     if rollOver(spriteNum) then
  8.       set the foreColor of sprite spriteNum to downCastColor
  9.     else
  10.       set the foreColor of sprite spriteNum to upcastColor
  11.     end if
  12.     updateStage()
  13.   end repeat
  14.   if rollOver(spriteNum) then
  15.     startTimer()
  16.     repeat while the timer < 15
  17.       set the foreColor of sprite spriteNum to downCastColor
  18.       updateStage()
  19.     end repeat
  20.     set the foreColor of sprite spriteNum to upcastColor
  21.     updateStage()
  22.     puppetSound("MouseUp.aif")
  23.     updateStage()
  24.     set RollOn to 1
  25.   else
  26.     set RollOn to 0
  27.   end if
  28.   return RollOn
  29. end
  30.